0 DATA1024,-1,1026,-2,1028,0,1108,2,1188,1,1186,0,1184,0,1104,0,1106,0
1 FORO=0TO8:READY(O),M(O):NEXTO:F$(1)="[144][201] WIN!":F$(2)="[144][201]T'S A DRAW."
2 POKE53280,11:POKE53281,11:PRINT"[144][147]0[221]1[221]2","  [212][197][195][200][206][207]-[201][206][198][207] [195][200][193][204][204][197][206][199][197] 2"
3 PRINT"[192][219][192][219][192]":PRINT"7[221]8[221]3",,"[157][157][212]IC-TAC-TOE":PRINT"[192][219][192][219][192]":PRINT"6[221]5[221]4","[208]AUL ";
4 PRINT"[199]ANDER    28 [202]UNE 1991":FORO=0TO8:Z(O)=0:POKEY(O)+54272,12:NEXTO
5 INPUT"[145][196]O YOU WANT FIRST GO";A$:ON1-(A$="Y")-(A$="N")*2GOTO5,8:O=0:GOSUB11
6 GOSUB10:O=4-(O=4)*2:GOSUB11:FORC=1TO3:GOSUB10:N=2:GOSUB12:IFS=2THENNEXTC
7 PRINTF$(S):INPUT"[208]RESS RETURN TO PLAY AGAIN.[151]";A$:GOTO2
8 GOSUB10:R=OAND6:O=8*-(O<>8):GOSUB11:GOSUB10:N=O-(4+R-O)+(O=4+R)AND7:GOSUB12
9 ONSGOTO7:GOSUB10:N=O+2AND7:GOSUB12:ONSGOTO7:GOSUB10:N=O+R+4AND7:GOSUB12:GOTO7
10 A=1:INPUT"[145][215]HERE WOULD YOU LIKE TO GO";O:IFO<0ORO>8ORZ(O+(O>8)*O)>0THEN10
11 Z(O)=A+1:POKEY(O)+54272,A:POKEY(O),79+9*A:A=0:RETURN
12 FORS=1TO2:FORP=0TO7:ON1-(Z(P)=S)GOTO15:ON2-(PAND1)GOTO14
13 FORT=0TO4:O=P+T-2AND7:ON2+(Z(P+M(T)AND7)=SANDZ(O)=0)GOTO11:NEXTT
14 O=P+4AND7:ON2+(Z(8)=SANDZ(O)=0)GOTO11:O=8:ON2+(Z(P+4AND7)=SANDZ(8)=0)GOTO11
15 NEXTP:NEXTS:S=2:O=N:GOTO11